home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00074.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.4 KB  |  86 lines
  1. global sbcontentsprite, gtransitionspeed, gnumviews, newview, pagedown, pageup, objectpict, light
  2.  
  3. on enterFrame
  4.   global roomname, sideboard, roomnumber, objmarker, light, objectpict
  5.   if gnumviews > 1 then
  6.     set mouseposition to point(the mouseH, the mouseV)
  7.     if the mouseH < (the right of sprite sideboard - 60) then
  8.       if (the mouseV > the bottom of sprite sbcontentsprite) and (the mouseV < (the bottom of sprite sideboard - 20)) then
  9.         if newview < gnumviews then
  10.           turndown()
  11.           einstallcontrolsideboard()
  12.         else
  13.           cursor(-1)
  14.         end if
  15.       else
  16.         if the mouseV < the top of sprite sbcontentsprite then
  17.           if newview > 1 then
  18.             turnup()
  19.             einstallcontrolsideboard()
  20.           else
  21.             cursor(-1)
  22.           end if
  23.         else
  24.           cursor(-1)
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29.   if not rollOver(sideboard) then
  30.     cursor(-1)
  31.     puppetSprite(sbcontentsprite, 0)
  32.     puppetSprite(objectpict, 0)
  33.     set the visible of sprite objmarker to 0
  34.     updateStage()
  35.     go(the frame - 2)
  36.   end if
  37. end
  38.  
  39. on exitFrame
  40.   go(the frame)
  41. end
  42.  
  43. on idle
  44.   checksbrollover(#up)
  45. end
  46.  
  47. on turnup
  48.   set arrowcursor to the number of member "up"
  49.   set arrowcursormask to the number of member "upMask"
  50.   cursor([arrowcursor, arrowcursormask])
  51.   set the visible of sprite objectpict to 0
  52.   set the visible of sprite light to 0
  53.   set currentview to value(word 2 of the name of member the memberNum of sprite sbcontentsprite of castLib "Room")
  54.   if currentview = 1 then
  55.     exit
  56.   else
  57.     set newview to currentview - 1
  58.   end if
  59.   set newviewcast to "E-HSList" && newview
  60.   set the member of sprite sbcontentsprite to member newviewcast
  61.   puppetTransition(13, gtransitionspeed, 0, 1)
  62.   updateStage()
  63.   set pageup to 1
  64.   set pagedown to 0
  65. end
  66.  
  67. on turndown
  68.   set arrowcursor to the number of member "down"
  69.   set arrowcursormask to the number of member "downMask"
  70.   cursor([arrowcursor, arrowcursormask])
  71.   set the visible of sprite objectpict to 0
  72.   set the visible of sprite light to 0
  73.   set currentview to value(word 2 of the name of member the memberNum of sprite sbcontentsprite of castLib "Room")
  74.   if currentview = gnumviews then
  75.     exit
  76.   else
  77.     set newview to currentview + 1
  78.   end if
  79.   set newviewcast to "E-HSList" && newview
  80.   set the member of sprite sbcontentsprite to member newviewcast
  81.   puppetTransition(14, gtransitionspeed, 0, 1)
  82.   updateStage()
  83.   set pagedown to 1
  84.   set pageup to 0
  85. end
  86.